home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / Python 133 SRC / Modules / cryptmodule.c < prev    next >
Text File  |  1995-12-21  |  519b  |  36 lines
  1. /* cryptmodule.c - by Steve Majewski
  2.  */
  3.  
  4. #include "allobjects.h"
  5.  
  6. #include <sys/types.h>
  7.  
  8.  
  9. /* Module crypt */
  10.  
  11.  
  12. static object *crypt_crypt(self, args)
  13.     object *self, *args;
  14. {
  15.     char *word, *salt; 
  16.     extern char * crypt();
  17.  
  18.     struct passwd *p;
  19.     if (!getargs(args, "(ss)", &word, &salt)) {
  20.         return NULL;
  21.     }
  22.     return newstringobject( crypt( word, salt ) );
  23.  
  24. }
  25.  
  26. static struct methodlist crypt_methods[] = {
  27.     {"crypt",    crypt_crypt},
  28.     {NULL,        NULL}        /* sentinel */
  29. };
  30.  
  31. void
  32. initcrypt()
  33. {
  34.     initmodule("crypt", crypt_methods);
  35. }
  36.